home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / undefi.c < prev    next >
C/C++ Source or Header  |  1992-11-21  |  1KB  |  61 lines
  1. /* undefi.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       subroutine undefi(array,length) >*/
  9. /* Subroutine */ int undefi_(array, length)
  10. doublereal *array;
  11. integer *length;
  12. {
  13.     /* Initialized data */
  14.  
  15.     static struct {
  16.     char e_1[8];
  17.     doublereal e_2;
  18.     } equiv_3 = { {'.', 'u', ' ', ' ', ' ', ' ', ' ', ' '}, 0. };
  19.  
  20. #define aundef (*(doublereal *)&equiv_3)
  21.  
  22.  
  23.     /* System generated locals */
  24.     integer i_1;
  25.  
  26.     /* Local variables */
  27.     static integer i;
  28.  
  29.     /* Parameter adjustments */
  30.     --array;
  31.  
  32.     /* Function Body */
  33. /*<       implicit double precision (a-h,o-z) >*/
  34.  
  35. /*<       dimension array(1) >*/
  36. /*     this routine undefines the memory locations indicated by array(1) 
  37. */
  38. /* through array(length). */
  39.  
  40. /*<       data aundef /2h.u/ >*/
  41. /*<       if (length.eq.0) return >*/
  42.     if (*length == 0) {
  43.     return 0;
  44.     }
  45. /*<       do 10 i=1,length >*/
  46.     i_1 = *length;
  47.     for (i = 1; i <= i_1; ++i) {
  48. /*<       array(i)=aundef >*/
  49.     array[i] = aundef;
  50. /*<    10 continue >*/
  51. /* L10: */
  52.     }
  53. /*<       return >*/
  54.     return 0;
  55. /*<       end >*/
  56. } /* undefi_ */
  57.  
  58. #undef aundef
  59.  
  60.  
  61.